Private Sub tvw_NodeClick(ByVal Node As MSComctlLib.Node)

    Dim  As Range

    Set  = Range("C3", Cells(Rows.Count, "C").End(xlUp))

    If Not Node.Parent Is Nothing Then

        txtԻ.Value = .Find(What:=Node.Text).Offset(, 2).Value
        lbl.Caption = "  : " & Node.Parent.Children
        
    End If
    
    If Not Node.Child Is Nothing Then
    
        txtԻ.Value = Empty
        lbl.Caption = "  : " & Node.Children
    
    End If

End Sub